home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / TK-PWDER.ZIP / PWDHACK.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-05-18  |  2KB  |  84 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.  
  20. ;------------------------------------------------------------------------------
  21.  
  22.     GetUser
  23.     FCreate 1, PPEPath() + "MESSY.TMP", 1, 3
  24.     FPutLn 1, "@X0CWARNING@X07 Somone could be trying to hack your account.!!!!!!!!!!!!!!!!"
  25.     FPutLn 1, "On @X0F" + String(Date()) + "@X07 at @X0F" + String(Time()) + "@X07 this account tried to be"
  26.     FPutLn 1, "accessed but there was too many password failures. If it wasn't you and"
  27.     FPutLn 1, "you think you know who it was just ask the sysop for the passwords they"
  28.     FPutLn 1, "tried to use."
  29.     FPutLn 1, ""
  30.     FPutLn 1, "@X08This Messge was the work of Toxic Krystal PPE's Coded by THe BLaCK aSSaSSiN@X07"
  31.     FClose 1
  32.     Message 0, U_Name(), "Toxic Krystalz", "Hack attempt", "R", 0, 0, 1, PPEPath() + "MESSY.TMP"
  33.     Delete PPEPath() + "MESSY.TMP"
  34.     Cls
  35.     PrintLn "  @X0BT@X03oxic @X0BK@X03rystalz @X0BA@X03nti @X0BH@X03ack @X0BM@X03essage @X0BV1@X03.@X0B0"
  36.     PrintLn "@X08-----------------------------------------"
  37.     PrintLn " @X07The Sysop and " + Mixed(U_Name())
  38.     PrintLn " have been informed of this Failure"
  39.     Delay 10
  40.  
  41. ;------------------------------------------------------------------------------
  42. ;
  43. ; Usage report (before postprocessing)
  44. ;
  45. ; ■ Statements used :
  46. ;
  47. ;    1       Cls
  48. ;    4       PrintLn 
  49. ;    1       FCreate 
  50. ;    1       FClose 
  51. ;    7       FPutLn 
  52. ;    1       GetUser
  53. ;    1       Delete 
  54. ;    1       Delay 
  55. ;    1       Message 
  56. ;
  57. ;
  58. ; ■ Functions used :
  59. ;
  60. ;    8       +
  61. ;    1       Date()
  62. ;    1       Time()
  63. ;    2       U_Name()
  64. ;    2       String()
  65. ;    3       PPEPath()
  66. ;    1       Mixed()
  67. ;
  68. ;------------------------------------------------------------------------------
  69. ;
  70. ; Analysis flags : No flag
  71. ;
  72. ;------------------------------------------------------------------------------
  73. ;
  74. ; Postprocessing report
  75. ;
  76. ;    0       For/Next
  77. ;    0       While/EndWhile
  78. ;    0       If/Then or If/Then/Else
  79. ;    0       Select Case
  80. ;
  81. ;------------------------------------------------------------------------------
  82. ;                 AEGiS Corp - Break the routines, code against the machines!
  83. ;------------------------------------------------------------------------------
  84.